home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Software Vault: The Gold Collection
/
Software Vault - The Gold Collection (American Databankers) (1993).ISO
/
cdr49
/
109_01.zip
/
UNTAB.C
< prev
next >
Wrap
Text File
|
1993-06-26
|
896b
|
56 lines
/*
prog to take a text file full of tabs
and turn them into the right number of spaces:
*/
#define CR 0x0d
#define LF 0x0a
#define BS 0x08
#define EOF 255
#define CPMEOF 0x1a
#define ERRORCODE -1
#define TAB 0x09
char ibuf[134], obuf[134];
main(argc,argv)
char **argv;
{
int fd1, fd2, col;
char c;
int i;
fd1 = fopen(argv[1],ibuf);
fd2 = fcreat(argv[2],obuf);
if (fd1 == ERRORCODE || fd2 == ERRORCODE) {
printf("Open error.\n");
exit();
}
col = 0;
while ((c=getc(ibuf)) != EOF) {
switch(c) {
case CR: col = 0;
case LF: putc2(c,obuf);
continue;
case TAB: do {
putc2(' ',obuf);
col++;
} while (col%8);
continue;
default: col++;
}
putc2(c,obuf);
}
fflush(obuf);
close(fd1);
close(fd2);
}
putc2(c,obuf)
char c;
{
putchar(c);
putc(c,obuf);
}